home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / menace / map.frm < prev    next >
Text File  |  1997-07-10  |  5KB  |  170 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Menace Map editor"
  5.    ClientHeight    =   2670
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7230
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2670
  13.    ScaleWidth      =   7230
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.HScrollBar HScroll2 
  17.       Height          =   255
  18.       Left            =   105
  19.       Max             =   12
  20.       TabIndex        =   5
  21.       Top             =   2325
  22.       Width           =   7035
  23.    End
  24.    Begin VB.PictureBox Picture2 
  25.       Height          =   1800
  26.       Left            =   120
  27.       ScaleHeight     =   116
  28.       ScaleMode       =   3  'Pixel
  29.       ScaleWidth      =   464
  30.       TabIndex        =   4
  31.       Top             =   450
  32.       Width           =   7020
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       AutoRedraw      =   -1  'True
  36.       AutoSize        =   -1  'True
  37.       Height          =   330
  38.       Left            =   5175
  39.       Picture         =   "map.frx":0000
  40.       ScaleHeight     =   18
  41.       ScaleMode       =   3  'Pixel
  42.       ScaleWidth      =   126
  43.       TabIndex        =   2
  44.       Top             =   45
  45.       Width           =   1950
  46.    End
  47.    Begin VB.HScrollBar HScroll1 
  48.       Height          =   270
  49.       Left            =   1440
  50.       Max             =   40
  51.       Min             =   1
  52.       TabIndex        =   1
  53.       Top             =   75
  54.       Value           =   1
  55.       Width           =   1245
  56.    End
  57.    Begin VB.Label Label2 
  58.       Caption         =   "Left             Right"
  59.       Height          =   255
  60.       Left            =   3240
  61.       TabIndex        =   3
  62.       Top             =   105
  63.       Width           =   1695
  64.    End
  65.    Begin VB.Label Label3 
  66.       Caption         =   "Current Map 1"
  67.       Height          =   210
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   90
  71.       Width           =   1215
  72.    End
  73. End
  74. Attribute VB_Name = "Form1"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Dim mapnum%
  80. Dim cell%(40, 8)
  81. Dim lb%, rb%, dwn%
  82.  
  83. Private Sub Form_Load()
  84. mapnum% = 1
  85. loadmap
  86. End Sub
  87.  
  88. Private Sub Form_Unload(Cancel As Integer)
  89. savemap
  90. End Sub
  91.  
  92. Private Sub HScroll1_Change()
  93. Label3.Caption = "Current Map " & HScroll1.Value
  94. If mapnum% > 0 Then savemap
  95. mapnum% = HScroll1.Value
  96. loadmap
  97. End Sub
  98.  
  99. Private Sub HScroll2_Change()
  100. Picture2_Paint
  101. End Sub
  102.  
  103. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  104.     If Button = 1 Then
  105.         lb% = x \ 18
  106.         u& = BitBlt(hdc, 243, 5, 18, 18, Picture1.hdc, lb% * 18, 0, SRCCOPY)
  107.     ElseIf Button = 2 Then
  108.         rb% = x \ 18
  109.         u& = BitBlt(hdc, 292, 5, 18, 18, Picture1.hdc, rb% * 18, 0, SRCCOPY)
  110.     End If
  111. End Sub
  112.  
  113. Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  114. dwn% = True
  115. End Sub
  116.  
  117. Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  118. If dwn% Then
  119.     x = x \ 18: y = y \ 18
  120.     If Button = 1 Then
  121.         cell%(x + HScroll2.Value, y) = lb%
  122.         u& = BitBlt(Picture2.hdc, x * 18, y * 18, 18, 18, Picture1.hdc, cell%(x + HScroll2.Value, y) * 18, 0, SRCCOPY)
  123.     Else
  124.         cell%(x + HScroll2.Value, y) = rb%
  125.         u& = BitBlt(Picture2.hdc, x * 18, y * 18, 18, 18, Picture1.hdc, cell%(x + HScroll2.Value, y) * 18, 0, SRCCOPY)
  126.     End If
  127. End If
  128. End Sub
  129.  
  130. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  131. dwn% = False
  132. End Sub
  133.  
  134. Private Sub Picture2_Paint()
  135. '29 wide '21 high
  136. For a% = 0 To 28
  137.     For b% = 0 To 5
  138.         u& = BitBlt(Picture2.hdc, a% * 18, b% * 18, 18, 18, Picture1.hdc, cell%(a% + HScroll2.Value, b%) * 18, 0, SRCCOPY)
  139.     Next
  140. Next
  141. u& = BitBlt(hdc, 243, 5, 18, 18, Picture1.hdc, lb% * 18, 0, SRCCOPY)
  142. u& = BitBlt(hdc, 292, 5, 18, 18, Picture1.hdc, rb% * 18, 0, SRCCOPY)
  143. End Sub
  144. Sub loadmap()
  145. Open App.Path & "\map.dat" For Random As #1 Len = 2
  146. nfile% = LOF(1) / 2
  147. For a% = 0 To 39
  148.     For b% = 0 To 5
  149.         Get #1, 1 + (a% + (b% * 40)) + (mapnum% - 1) * 2500, cell(a%, b%)
  150.     Next
  151. Next
  152.  
  153. Picture2_Paint
  154. Close
  155. End Sub
  156. Sub savemap()
  157. Open App.Path & "\map.dat" For Random As #1 Len = 2
  158. For a% = 0 To 39
  159.     For b% = 0 To 5
  160.         Put #1, 1 + (a% + (b% * 40)) + (mapnum% - 1) * 2500, cell(a%, b%)
  161.     Next
  162. Next
  163. Close
  164. End Sub
  165.  
  166. Private Sub VScroll1_Change()
  167. Picture2_Paint
  168.  
  169. End Sub
  170.